COMMENT ⊗   VALID 00003 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	"The letter A"
C00004 00003	"The letter B"
C00006 ENDMK
C⊗;
"The letter A";
call charbegin(`A,13,2,2,ph,0,0);
hpen;
lft0x1=round 1.5u; bot0y1=0;
rt5x4=round(r-1.5u); bot5y4=0;
top0y3=top5y2=h+o;
x3-x1=x4-x2; rt5x2=rt0x3;
w5 draw2..4;	% right diagonal stroke
y5=y6=e;
x5-1=(y5-y1)/(y3-y1)[x1,x3];
x6+1=(y6-y4)/(y2-y4)[x4,x2];
w0 draw 5..6;	% bar line
lpen#; w5 draw3..5;	% erase excess at upper left
hpen; w0 draw3..1;	% left diagonal stroke
if ucs≠0:
	call `a serif(1,0,3,-.5ucs);
	call `b serif(1,0,3,+ucs);	% left serifs
	call `c serif(4,5,2,-ucs);
	call `d serif(4,5,2,+.5ucs);	% right serifs
fi.
"The letter B";
call charbegin(`B,12,2,0,ph,0,ph.slant-2pu);
hpen;
lft4x1=lft4x2=round 2u; top4y1=h; 
bot4y2=0;
w4 draw1..2;	% stem
if ucs≠0:
	call `a serif(1,4,2,-ucs);
	call `b serif(1,4,2,.5ucs);	% upper serif
	call `c serif(2,4,1,-ucs);
	call `d serif(2,4,1,.5ucs);	% lower serif
fi;
x3=1/2[2u,r];  y3=y1;
rt5x4=round(r-u);  y4=good0 1/2h;
w0 draw 1..3;	% upper bar line
call `e darc(3,4,w5);	% upper bowl
x5=x1; x6=x3+1/2u;  y4=y5=y6;
rt5x7=round(r-1/2u); bot5y7=0;
w0 draw 5..6;	% middle bar line
call `f darc(6,7,w5);	% lower bowl
x8=x6;  y8=y7;  w0 draw2..8.	% lower bar line